Sub Test()
    'ļչ ļǷ 
    Dim fso
    
    Set fso = CreateObject("Scripting.Filesystemobject")
    MsgBox (fso.GetFileName("c:\a.txt"))      ' "a.txt"
    MsgBox (fso.GetBaseName("c:\a.txt"))      ' "a"
    MsgBox (fso.GetExtensionName("c:\a.txt")) '  "txt"

    MsgBox (fso.GetExtensionName("a.txt"))    '   "txt"
    MsgBox (fso.FileExists("c:\a.txt"))       'ļǷڣڷTrueFalse
    
    
End Sub
